

************************************************************************************************************
**#							TABLE 10 - EMPLOYEE RESPONSE USING NARROWER WINDOWS
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

******************************************
*Change in Pay Rating - Tighter Windows
******************************************
est clear
eststo: xi: reghdfe gd_pay_diff_15 pr_quint_5 pr_quint_1 gd_pay_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_15 pr_quint_5 pr_quint_1 gd_pay_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_15 ln_upr ln_epr gd_pay_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_15 ln_upr ln_epr gd_pay_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_60 pr_quint_5 pr_quint_1 gd_pay_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_60 pr_quint_5 pr_quint_1 gd_pay_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_60 ln_upr ln_epr gd_pay_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_60 ln_upr ln_epr gd_pay_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_90 pr_quint_5 pr_quint_1 gd_pay_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_90 pr_quint_5 pr_quint_1 gd_pay_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_90 ln_upr ln_epr gd_pay_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_90 ln_upr ln_epr gd_pay_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1 gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1 gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_pay_diff_365 ln_upr ln_epr gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_pay_diff_365 ln_upr ln_epr gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/T10_emp_payrating_narrow.csv", b(3) ar2 varwidth(25) title("Pay Rating Tighter Windows") order(pr_quint_5 pr_quint_1 ln_upr ln_epr gd_pay_pre_15 gd_pay_pre_60 gd_pay_pre_90 gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace

**************************************************
*Change in CEO disapproval - Tighter Windows
**************************************************
est clear
eststo: xi: reghdfe gd_ceodis_diff_15 pr_quint_5 pr_quint_1 gd_ceodis_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_15 pr_quint_5 pr_quint_1 gd_ceodis_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_15 ln_upr ln_epr gd_ceodis_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_15 ln_upr ln_epr gd_ceodis_pre_15 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_60 pr_quint_5 pr_quint_1 gd_ceodis_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_60 pr_quint_5 pr_quint_1 gd_ceodis_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_60 ln_upr ln_epr gd_ceodis_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_60 ln_upr ln_epr gd_ceodis_pre_60 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_90 pr_quint_5 pr_quint_1 gd_ceodis_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_90 pr_quint_5 pr_quint_1 gd_ceodis_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_90 ln_upr ln_epr gd_ceodis_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_90 ln_upr ln_epr gd_ceodis_pre_90 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 pr_quint_5 pr_quint_1 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_365 pr_quint_5 pr_quint_1 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 ln_upr ln_epr gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe gd_ceodis_diff_365 ln_upr ln_epr gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/T10_emp_ceodis_narrow.csv", b(3) ar2 varwidth(25) title("CEO Disapproval Tighter Windows") order(pr_quint_5 pr_quint_1 ln_upr ln_epr gd_ceodis_pre_15 gd_ceodis_pre_60 gd_ceodis_pre_90 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace
